home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor2
/
air6.src
< prev
next >
Wrap
Text File
|
1992-01-11
|
2KB
|
68 lines
%%HP: T(3)A(D)F(.);
@ Sample AIR directory for use with FLYING.LIB
DIR
PLANES
DIR
N26H
\<<
'PPIPARCH'
'PIPARCH' {
":Gal Per Hr:10.0
:TAS:125
:Base Wt:1601
:Base Mom:140.806"
{ -1 0 } V }
\>>
PPIPARCH
\<< ERASE {
(81.0000000004,1200)
(94.0000000004,2600)
X 0 {
(81.0000000004,1200)
"C.G.(aft.datum)"
"WT" } FUNCTION Y }
'PPAR' STO DRAX
LABEL
(81.9999999998,1200)
(92.9999999989,1200)
LINE
(92.9999999989,1200)
(92.9999999999,2550)
LINE
(92.9999999999,2550)
(88.5000000017,2550)
LINE
(88.5000000017,2550)
(81.9999999984,2050)
LINE
(81.9999999984,2050)
(81.9999999998,1200)
LINE MOMT WGHT /
1000 * .1 - WGHT 10
- R\->C MOMT WGHT /
1000 * .1 + WGHT 10
+ R\->C BOX { # 0d
# 0d } PVIEW
\>>
PIPARCH
\<< WGHT fpwt
+ rpwt + b1wt +
b2wt + gal 6 * +
'WGHT' STO MOMT
fpwt 32.5 401 / * +
rpwt 38 325 / * +
gal 6 * 29 300 / *
+ b1wt 27.5 199 / *
+ b2wt 100 1 / * +
'MOMT' STO { b1wt
b2wt rpwt fpwt }
PURGE
\>>
sst.p
"C# 588 0400038000FF0FF0890E0EB0C172AF080C97290E0280888222080888290E0280880222080888290E0280880222080888290E0E90880E32080887290E028088C222080888290E0280888222080888290E0280888222080888290E028FC1F22208FC97FF0FF0CE020C41E9020451E9010C8F901049F9010C8AF0F088C17E37E17C10E1190788482600220002D807088880888482200221907088880888482B00227C33C97C38807188880888E12E302A82022A82A80715880888A022202AFC122A8C19807158808882122202A0022CB802980002588482B002A00220A802980712C17807227220E17E170A8E1C9010C17D080E00807C1289080110C88223790908E2088822279090822080FC32790908E208080228908011080401289080E00C13C07FF0FF00E0"
END
RTE.FILES
DIR
END
END